Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/background_7320.txt

Text File | 1990-08-07 | 2KB | 110 lines

-- background: 7320 from stack: in.0-2
-- bmap block id: 7821
-- flags: 0000
-- background id: 0
-- name: Stacklets
----- HyperTalk script -----
-- This handler goes back to the last card if the user clicks
-- outside the "window".
on mouseUp
  if "field" is not in the target and "button" is not in the target then goBack
end mouseUp

-- This handler stores the name of the last card.
on goBack
  go cd "How are others " of stack "Intro to HyperCard 2.0"
end goBack



-- part 2 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=76 top=79 right=269 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 15
-- part name: StackTalk
----- HyperTalk script -----




-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=67 top=51 right=307 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: wind


-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=82 top=254 right=301 bottom=208
-- title width / last selected line: 0
-- icon id / first selected line: 8414 / 8414
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See the HyperCard Sample
----- HyperTalk script -----
-- This handler goes to the card with the simulated stacklet.
on mouseUp
  put word 1 of short name of this cd into stackletName
  lock screen
  go card stackletName
  show cd fld "info"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=74 top=53 right=68 bottom=94
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: closebox
----- HyperTalk script -----
-- This handler sets the cursor to simulate a real closeBox.
on mouseEnter
  set the cursor to "arrow"
end mouseEnter

-- This handler sets the cursor to simulate a real closeBox.
on mouseWithIn
  repeat until the mouseloc is not within the rect of me or the mouse is down
    set the cursor to "arrow"
  end repeat
  if the mouse is down then
    send mouseUp to me
  end if
end mouseWithIn

-- This handler simulates clicking in a closeBox.
on mouseUp
  set the icon of me to 7937
  wait 15
  set the icon of me to 0
  goBack
end mouseUp